home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 December / PC Answers December 1995 (disc errors).iso / mxc / flyinf.dir / 00006.ls < prev    next >
Encoding:
Text File  |  1995-05-04  |  1.1 KB  |  45 lines
  1. global myLine, gsliderbar, gMovNo, gdirmovie, fixPal
  2.  
  3. on startMovie
  4.   if the machineType < 256 then
  5.     openXLib("XPALETTE")
  6.     set fixPal to fixPalette(mnew, the stageLeft, the stageTop, the stageRight, the stageBottom)
  7.   end if
  8.   if the machineType >= 256 then
  9.     openXLib("XPALETTE.dll")
  10.     set fixPal to XPALETTE(mnew)
  11.   end if
  12.   seperate()
  13.   set gdirmovie to "flyinf.dir"
  14.   set gMovNo to the number of cast gMovNo
  15.   fixPal(mPatchIt)
  16.   repeat with i = 1 to 1000
  17.     if the castType of cast i = #digitalVideo then
  18.       set the pausedAtStart of cast i to 1
  19.       set the controller of cast i to gsliderbar
  20.       set the video of cast i to 0
  21.     end if
  22.   end repeat
  23. end
  24.  
  25. on patchPal
  26.   fixPal(mPatchIt)
  27. end
  28.  
  29. on stopMovie
  30.   fixPal(mdispose)
  31.   if the machineType < 256 then
  32.     closeXLib("XPALETTE")
  33.   else
  34.     closeXLib("XPALETTE.dll")
  35.   end if
  36. end
  37.  
  38. on seperate
  39.   put getAt(FlyList, 1) into field "Name"
  40.   put getAt(FlyList, 2) into field "Pattern"
  41.   put getAt(FlyList, 3) into field "Stage"
  42.   put getAt(FlyList, 4) into field "Link"
  43.   set gMovNo to the number of cast getAt(FlyList, 7)
  44. end
  45.